www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/admin/Ku_admin.asp

    <!--#include file="../Ku_inc/Ku_sql.asp"-->
<!--#include file="../Ku_inc/Ku_config.asp"-->
<!--#include file="Ku_conn.asp"-->
<!--#include file="../Ku_inc/Ku_md5.asp"-->
<!-- #include file="Session.asp"-->
<link href="include/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
input{
	height:22px;
	border:1px solid #BEBEBE;
	background-color:#FFF;
	padding-top: 2px;
	padding-right: 8px;
	padding-bottom: 0pt;
	padding-left: 3px;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
    <!--
    function doSubmit(){
		if (document.Manage_add.username.value==""){
			alert("用户名不能为空！");
			return false;
		}		
		if (document.Manage_add.password.value==""){
			alert("密码不能为空！");
			return false;
		}
		return true;
	}
    //-->
</script>
<div align="center">

<table border="0" width="95%" height="70" cellpadding="0" cellspacing="0"  >
	<tr >
		<td height="30" style="border: 1px solid #D0D4D9" bgcolor="#EEEEEE" >&nbsp;<b>当前栏目：</b>&gt; 管理员设置</td>
	</tr>
    <tr><td height="30">
    <input class="input_back" type="button" name="Submit1" value="管理首页"onclick="location.href='main.asp'"/></td></tr>
</table>

</div>

<%

    if Request.QueryString("Action")="Modify" then
    UserName=request("UserName")
    password=request("Password")
    Md5_Pass=md5(password)
    If UserName="" Then
    Response.Write "<script>alert(""请输入用户名!"");location.href=""javascript:history.back()"";</script>"
    Response.end()
    end if
    ID=Request("ID")
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select * from ku_admin where ID="&ID&""
    rs.open sql,conn,1,3
    rs("Username")=UserName
    rs("oskey")=request("oskey")
    If password<>"" Then
    rs("Password")=Md5_Pass
    end if
    rs.update
    rs.close
    response.redirect "ku_admin.asp"
    end if
    'del----------------------
    if request("Action")="Del" then
    id=Request.QueryString("id")
    delsql="delete from ku_admin where id="&id
    conn.execute(delsql)
    conn.close
    response.redirect"ku_admin.asp"
    end if
    'add----------------------
    if request("Action")="Add" then
    UserName=request("UserName")
    password=request("Password")
    Md5_Pass=md5(password)
    If UserName="" Then
    Response.Write "<script>alert(""请输入用户名!"");location.href=""javascript:history.back()"";</script>"
    Response.end()
    end if
    If password="" Then
    Response.Write "<script>alert(""请输入密码!"");location.href=""javascript:history.back()"";</script>"
    Response.end()
    end if
    set rs=server.createobject("adodb.recordset")
    sql="select * from ku_admin where username='"&username&"'"
    rs.open sql,conn,1,3
    if (rs.eof and rs.bof) then
    rs.addnew
    rs("oskey")=request("oskey")
    rs("Username")=UserName
    rs("Password")=Md5_Pass
    rs.update
    rs.close
    else
    response.Write("<script>alert(""用户已存在！"");location.href=""ku_admin.asp"";</script>")
    end if
    end if 
    if request("Action")="Edit" then
    id=request.QueryString("id")
    set rs=server.createobject("adodb.recordset")
    sql="select * from ku_admin where id="&id
    rs.open sql,conn,1,1
    Username=rs("Username")
    Password=rs("Password")
    oskey=rs("oskey")
%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form method="POST" action="ku_admin.asp?Action=Modify" id="Manage" name="Manage">
<tr bgcolor="#EAEAEA">
<td width="100%" height="24" colspan=2 align=center><b>修 改 管 理 员 资 料</b></td>
</tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="30%" height="22" align="right">用户名：</td>
            <td width="70%"> 
              <input type="text" name="username" value="<%=Username%>" size="20" class=input></td>
</tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="30%" height="22" align="right">密码：</td>
            <td width="70%"> 
              <input type="password" name="password" size="20" class=input>
        不修改时保留 </td>
</tr>
          
          
<tr align="center" bgcolor="#EAEAEA" height="24"> 
<td height="24" colspan=2><input name="ID" type="hidden" id="ID" value="<%=ID%>">
<input type="submit" value=" 修 改 " name="cmdok2" class=input onClick="return doSubmit()">&nbsp;
<input type="reset" value=" 清 除 " name="cmdcance2l" class=input>
</td>
</tr>
</form>
</table>
<%
    response.end
    end if
%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF"> 
                
<td width="100%" height="22" colspan=5 align=center><strong>管 理 员 列 表</strong></td>
</tr>
              
<tr bgcolor="#EAEAEA" height=22> 
<td width="10%" height="21" align="center">ID号</td>
<td width="25%" height="21" align="center">名称</td>
<td width="20%" height="21" align="center">权限</td>
<td width="10%" height="21" align="center">修改</td>
<td width="10%" height="21" align="center">删除</td>
</tr>
<%
    set rs=server.CreateObject("ADODB.RecordSet")	
    sql="select * from ku_admin"
    rs.open sql,conn,1
%>
<% if rs.EOF then %>
              <tr bgcolor="#FFFFFF">
<td height="22" colspan=5 align=center>没有用户 :（</td>
              </tr>
<%
    else
    do while NOT rs.EOF

%>
              <tr bgcolor="#FFFFFF" height="22"> 
                <td width="10%" align="center"><%=rs("id")%>　</td>
                <td width="25%" align="center"><%=rs("Username")%></td>
                
<td width="20%" align="center">超级管理员</td>
<td width="10%" align="center"><a href="ku_admin.asp?Action=Edit&id=<%=rs("id")%>">修改</a></td>
<td width="10%" align="center" bgcolor="#FFFFFF"><a href="ku_admin.asp?Action=Del&id=<%=rs("id")%>">删&nbsp;除</a></td>
</tr>
<%
    rs.MoveNext
    loop
    end if
    rs.close
%>
<%
    set rs=nothing
    conn.close
    set conn=nothing
%>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" style="border-collapse:collapse;">
  <FORM METHOD=POST ACTION="ku_admin.asp?Action=Add" id="Manage_add" name="Manage_add">
    <tr bgcolor="#EAEAEA"> 
      <td height=24 colspan=2 align="center"><strong>添 加 管 理 员</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF" height="22"> 
      <td height="39" colspan="2" Valign="top"><p> 1.请在添加管理员之后进行权限编辑！</p>
		<p> 2.后台密码要随时更改，以免泄漏造成不必要的损失！</p>
        </td>
    </tr>
    <tr bgcolor="#FFFFFF" height="22"> 
      <td width="450" height="23" align="right">管 理 员 名：</td>
      <td width="737" height="23"> <input name=username type=text  class=input id="username" onfocus=this.select() onmouseover=this.focus() value="" size="15" maxlength="30"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="23" align="right">管 理 密 码：</td>
      <td height="23"> <input name=password type=password class=input id="password" onfocus=this.select() onmouseover=this.focus() value="" maxlength="30"></td>
    </tr>
    <tr bgcolor="#EAEAEA"> 
      <td height="24" colspan=2 align="center"> <input type=hidden value="add" name="act"> 
        <input type=submit value=增加 name="submit" class=input onClick="return doSubmit()"> 
        <input type=reset name="Submit" value="取消" class=input> </td>
    </tr>
  </FORM>
</table><p align="center"><!-- #include file="Ku_bottom.asp"--></p>